home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
gfx
/
aga
/
AGA_Morph_V1_2.lha
/
AGA-Morph-V1.2
/
Install-D
< prev
next >
Wrap
Text File
|
1996-11-06
|
5KB
|
198 lines
; Installerscript for AGA-Morph V1.2
; © 1996 by Stefan Guthe
(set name
(askdir (prompt "Bitte ein Verzeichnis wählen,um AGA-Morph V1.2. Ein neues Verzeichnis mit dem Namen AGA-Morph wird erstellt.")
(help @makedir-help)
(default "work:")
)
)
(if (askbool(prompt "Möchten Sie die 8-Farb Piktogramme installieren?")
(help "Wählen sie einfach das gewünschte aus.")
(choices "8-Farben" "4-Farben")
(default 0)
)
(
(copyfiles
(prompt "Erstelle Verzeichnis")
(help @copyfiles-help)
(source "AGA-Morph")
(dest "T:")
(pattern "AGA-Morph-8")
(infos)
)
(rename "T:AGA-Morph-8" "T:AGA-Morph")
(rename "T:AGA-Morph-8.info" "T:AGA-Morph.info")
)
(
(copyfiles
(prompt "Erstelle Verzeichnis")
(help @copyfiles-help)
(source "AGA-Morph")
(dest "T:")
(pattern "AGA-Morph-4")
(infos)
)
(rename "T:AGA-Morph-4" "T:AGA-Morph")
(rename "T:AGA-Morph-4.info" "T:AGA-Morph.info")
)
)
(delete ("T:AGA-Morph/Pictures.info")
(optional force)
)
(delete ("T:AGA-Morph/Pictures")
(optional force)
)
(delete ("T:AGA-Morph/Source.info")
(optional force)
)
(delete ("T:AGA-Morph/Source")
(optional force)
)
(copyfiles
(prompt "Erstelle Verzeichnis")
(help @copyfiles-help)
(source "T:")
(dest name)
(pattern "AGA-Morph")
(infos)
)
(delete ("T:AGA-Morph/AGA-Morph.info")
(optional force)
)
(delete ("T:AGA-Morph/AGA-Morph.guide.info")
(optional force)
)
(delete ("T:AGA-Morph/Bilder.info")
(optional force)
)
(delete ("T:AGA-Morph/Bilder")
(optional force)
)
(delete ("T:AGA-Morph/Quellen.info")
(optional force)
)
(delete ("T:AGA-Morph/Quellen")
(optional force)
)
(delete ("T:AGA-Morph")
(optional force)
)
(delete ("T:AGA-Morph.info")
(optional force)
)
(complete 5)
(set name
(tackon name "AGA-Morph"
)
)
(set n
(askoptions
(prompt "Bitte die Version von AGA-Morph auswählen, die installiert erden soll.")
(help @askoptions-help)
(choices
"AGA-Morph"
"AGA-Morph-020"
"AGA-Morph-020-FPU"
"AGA-Morph-040"
"AGA-Morph-040-FPU"
)
(default 1)
)
)
(if (IN n 0) (set name2 "AGA-Morph-d"))
(if (IN n 1) (set name2 "AGA-Morph-020-d"))
(if (IN n 2) (set name2 "AGA-Morph-020-FPU-d"))
(if (IN n 3) (set name2 "AGA-Morph-040-d"))
(if (IN n 4) (set name2 "AGA-Morph-040-FPU-d"))
(if (exists (tackon name "AGA-Morph"))
(delete (tackon name "AGA-Morph")
(optional "force")
)
)
(copyfiles
(prompt "Kopiere AGA-Morph.")
(help @copyfiles-help)
(source (cat "Bin/d/" name2))
(dest name)
)
(rename (tackon name name2) (tackon name "AGA-Morph"))
(complete 30)
(copyfiles
(prompt "Kopiere AGA-Morph-Guide.")
(help @copyfiles-help)
(source "")
(dest name)
(pattern "AGA-Morph-D.Guide")
)
(if (exists (tackon name "AGA-Morph.Guide"))
(delete (tackon name "AGA-Morph.Guide")
(optional "force")
)
)
(rename (tackon name "AGA-Morph-D.Guide") (tackon name "AGA-Morph.Guide"))
(complete 45)
(copyfiles
(prompt "Kopiere Bilder.")
(help @copyfiles-help)
(source "Pictures/")
(dest (tackon name "Bilder"))
(pattern "#?")
)
(complete 70)
(copyfiles
(prompt "Kopiere Quellcode.")
(help @copyfiles-help)
(source "Source/")
(dest (tackon name "Quellen"))
(pattern "#?")
)
(complete 95)
(if (exists "fonts:STG/8")
(message "STG font existiert bereits.")
(copyfiles
(prompt "Kopiere Font")
(help @copyfiles-help)
(source "fonts")
(dest "fonts:")
(pattern "#?")
(fonts)
)
)
(complete 100)
(exit)